home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / nude1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  4.8 KB  |  139 lines
  1. 1   'Modified from the HP 9845 Basic by G. Wesley  12/29/82
  2. 10   CLS
  3. 11   DEFINT X,Y,C
  4. 20   KEY OFF
  5. 30   SCREEN 2
  6. 40   C=0:LINE -(0,0),C
  7. 50   FOR I=1 TO 360
  8. 60   <UNK! {0009}>READ X,Y,P
  9. 70  <UNK! {0009}>X=X*640/360
  10. 80  <UNK! {0009}>Y=Y*200/240
  11. 90       Y=200-Y 'do y transformation to get picture right side up.
  12. 100  <UNK! {0009}>IF P=13 THEN C=0 ELSE C=1
  13. 110      LINE -(X,Y),C
  14. 120  NEXT I
  15. 130   LOCATE 5,5:PRINT "EAT YOUR HEART OUT!!!"
  16. 140   GOTO 140
  17. 150   DATA  51,100,13,79,103,12,104,92,12
  18. 160   DATA  108,87,12,108,82,12,104,72,12
  19. 170   DATA  88,57,12,93,75,13,93,78,12
  20. 180   DATA  91,82,12,90,84,12,90,87,12
  21. 190   DATA  89,90,12,89,94,12,90,93,12
  22. 200   DATA  91,89,12,92,86,12,92,83,12
  23. 210   DATA  94,77,12,93,75,13,96,80,12
  24. 220   DATA  97,83,12,97,87,12,96,89,12
  25. 230   DATA  92,92,12,89,94,12,93,89,12
  26. 240   DATA  94,85,12,94,77,12,85,81,13
  27. 250   DATA  85,83,12,86,84,12,86,82,12
  28. 260   DATA  85,81,12,85,86,13,84,86,12
  29. 270   DATA  83,88,12,85,86,12,67,54,13
  30. 280   DATA  65,60,12,64,67,12,66,74,12
  31. 290   DATA  67,74,12,66,67,12,66,60,12
  32. 300   DATA  67,54,12,69,56,13,68,61,12
  33. 310   DATA  67,67,12,68,70,12,71,73,12
  34. 320   DATA  69,69,12,69,64,12,71,60,12
  35. 330   DATA  69,56,12,71,60,13,74,64,12
  36. 340   DATA  74,68,12,71,72,12,73,68,12
  37. 350   DATA  73,64,12,70,61,12,70,63,13
  38. 360   DATA  71,63,12,73,65,12,73,68,12
  39. 370   DATA  71,69,12,70,69,12,69,68,12
  40. 380   DATA  70,65,13,70,66,12,71,66,12
  41. 390   DATA  71,65,12,70,65,12,64,87,13
  42. 400   DATA  60,91,12,59,94,12,58,98,12
  43. 410   DATA  60,100,12,59,97,12,62,92,12
  44. 420   DATA  64,87,12,69,86,13,65,88,12
  45. 430   DATA  63,93,12,62,100,12,65,98,12
  46. 440   DATA  64,95,12,64,90,12,69,86,13
  47. 450   DATA  70,91,12,68,95,12,65,98,12
  48. 460   DATA  65,97,12,67,95,12,69,91,12
  49. 470   DATA  69,86,12,65,88,13,66,88,12
  50. 480   DATA  68,89,12,69,91,12,67,94,12
  51. 490   DATA  65,94,12,64,93,12,65,90,13
  52. 500   DATA  65,91,12,66,91,12,66,90,12
  53. 510   DATA  65,90,12,61,101,13,50,104,12
  54. 520   DATA  36,100,12,24,90,12,17,75,12
  55. 530   DATA  16,61,12,25,43,12,44,33,12
  56. 540   DATA  60,33,12,79,40,12,57,38,12
  57. 550   DATA  41,45,12,24,62,12,17,75,12
  58. 560   DATA  51,100,13,57,95,12,63,80,12
  59. 570   DATA  62,72,12,58,78,12,62,65,12
  60. 580   DATA  65,49,12,52,45,13,65,49,12
  61. 590   DATA  88,65,12,87,50,12,79,40,12
  62. 600   DATA  17,75,13,5,67,12,0,45,12
  63. 610   DATA  4,23,12,25,11,12,58,17,12
  64. 620   DATA  110,14,12,135,25,12,160,32,12
  65. 630   DATA  164,40,12,162,44,12,155,46,12
  66. 640   DATA  143,45,12,151,43,12,149,40,12
  67. 650   DATA  125,48,12,118,55,12,119,51,13
  68. 660   DATA  117,58,12,113,62,12,104,62,12
  69. 670   DATA  115,61,13,115,67,12,111,71,12
  70. 680   DATA  104,72,12,121,52,13,133,50,12
  71. 690   DATA  145,51,12,131,56,13,145,51,12
  72. 700   DATA  170,47,12,245,41,12,255,42,12
  73. 710   DATA  262,46,12,271,58,12,282,81,12
  74. 720   DATA  281,78,13,287,81,12,280,76,13
  75. 730   DATA  285,74,12,288,75,12,278,73,13
  76. 740   DATA  282,75,12,283,79,13,288,75,12
  77. 750   DATA  293,74,12,301,77,12,299,76,13
  78. 760   DATA  306,75,12,313,76,12,314,77,12
  79. 770   DATA  313,78,12,309,78,12,309,77,12
  80. 780   DATA  311,76,12,309,78,13,304,79,12
  81. 790   DATA  300,81,12,295,79,12,302,80,13
  82. 800   DATA  313,83,12,316,85,12,312,85,12
  83. 810   DATA  311,84,12,311,83,12,313,83,12
  84. 820   DATA  312,85,13,300,84,12,292,82,12
  85. 830   DATA  300,84,13,305,88,12,306,90,12
  86. 840   DATA  302,89,12,301,88,12,302,87,12
  87. 850   DATA  305,88,12,302,89,13,289,85,12
  88. 860   DATA  295,79,13,280,92,12,275,91,12
  89. 870   DATA  244,68,12,251,64,13,244,68,12
  90. 880   DATA  220,73,12,170,89,12,164,92,12
  91. 890   DATA  157,92,12,220,73,13,243,73,12
  92. 900   DATA  261,81,12,270,95,12,273,109,12
  93. 910   DATA  270,125,12,259,143,12,244,160,12
  94. 920   DATA  227,177,12,208,193,12,196,206,12
  95. 930   DATA  214,202,13,198,210,12,189,213,12
  96. 940   DATA  182,213,12,176,211,12,172,206,12
  97. 950   DATA  170,199,12,172,190,12,182,167,12
  98. 960   DATA  197,141,12,209,125,12,236,105,12
  99. 970   DATA  180,122,13,185,126,12,187,137,12
  100. 980   DATA  191,150,12,208,193,13,214,202,12
  101. 990   DATA  222,216,12,228,223,12,234,226,12
  102. 1000   DATA  240,226,12,247,222,12,276,192,12
  103. 1010  DATA  305,164,12,318,155,12,330,150,12
  104. 1020  DATA  349,137,12,347,139,13,360,149,12
  105. 1030  DATA  360,140,12,357,129,12,353,123,12
  106. 1040  DATA  350,121,12,335,120,12,349,137,13
  107. 1050  DATA  339,123,12,324,110,12,322,111,12
  108. 1060  DATA  322,113,12,324,116,12,330,121,12
  109. 1070  DATA  341,126,12,337,124,13,338,127,12
  110. 1080  DATA  335,120,13,335,116,12,349,107,12
  111. 1090  DATA  348,106,12,340,110,12,324,110,12
  112. 1100  DATA  341,126,13,334,128,12,330,128,12
  113. 1110  DATA  325,126,12,320,123,12,316,122,12
  114. 1120  DATA  312,124,12,310,127,12,308,134,12
  115. 1130  DATA  305,140,12,290,150,12,275,159,12
  116. 1140  DATA  257,168,12,249,174,12,244,179,12
  117. 1150  DATA  293,148,13,289,142,12,285,142,12
  118. 1160  DATA  282,143,12,274,150,12,266,155,12
  119. 1170  DATA  241,163,12,248,205,13,247,194,12
  120. 1180  DATA  241,163,12,90,99,13,95,103,12
  121. 1190  DATA  94,100,13,98,114,12,105,128,12
  122. 1200  DATA  108,132,12,108,134,12,110,135,12
  123. 1210  DATA  111,134,12,108,132,12,105,128,13
  124. 1220  DATA  117,134,12,111,134,13,117,134,12
  125. 1230  DATA  131,130,12,143,122,12,99,95,13
  126. 1240  DATA  114,100,12,130,108,12,124,97,13
  127. 1250  DATA  130,104,12,137,115,12,143,122,12
  128. 1260  DATA  160,130,12,167,132,12,169,134,12
  129. 1270  DATA  171,133,12,171,131,12,167,132,12
  130. 1280  DATA  160,130,13,175,126,12,171,131,13
  131. 1290  DATA  175,126,12,181,120,12,186,110,12
  132. 1300  DATA  188,100,12,186,89,12,181,121,13
  133. 1310  DATA  190,121,12,200,118,12,210,112,12
  134. 1320  DATA  222,103,12,195,120,13,200,122,12
  135. 1330  DATA  183,122,13,190,125,12,207,127,12
  136. 1340  DATA  233,107,13,232,103,12,365,0,13
  137. 1350  STOP
  138. 65399  '** DONE - PRESS ENTER TO RETURN TO MENU **
  139.